Option Explicit
Sub E_Sample028()
    '(@,GKK QG)
    'ոE_Data03u@g
    'o̷|ܧAҥHХƻsAӰ
    Dim myRng As Range
    With Worksheets

        .Item("E_Data03").Copy After:=.Item(.Count)
        Set myRng = .Item(.Count).Range("A1").CurrentRegion 'Ƨǽd
    End With
    With myRng
        'wPƧǤk
        .Sort Key1:=.Cells(2, 4), Order1:=xlAscending, _
        Header:=xlYes               'H4欰ȨåH@ӶiƧ
        MsgBox "Hϥͤ묰зǨӶiƧ"
        'wPƧǤk
        .Sort Key1:=.Cells(2, 4), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=8       'H4欰ȨèϥΦC8ӶiƧ
        MsgBox "ϥΦۭqCӱƧǽϥͤ"
    End With
    Set myRng = Nothing             '
End Sub


